home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / lib_test / bug_copperfield.e < prev    next >
Encoding:
Text File  |  1996-06-13  |  529 b   |  26 lines  |  [TEXT/EDIT]
  1. class TEST_COPPERFIELD
  2. --
  3. -- From a bug report of : Philippe RIBET
  4. --
  5.   
  6. creation make
  7.  
  8. feature    
  9.  
  10.    make is
  11.       local 
  12.      copperfield:INTEGER;
  13.       do
  14.  
  15.          copperfield:= (5 // ((5).sqrt.floor));
  16.          if copperfield /= (5 // ((5).sqrt.floor)) then
  17.         io.put_integer(copperfield);
  18.             io.put_string("%NC'est de la magie a l'etat pur !%N");
  19.         io.put_integer((5)//((5+1).sqrt.floor)+1);
  20.          else
  21.             io.put_string("%NIl faut ressayer...%N");
  22.          end;
  23.       end;
  24.  
  25. end -- TEST_COPPERFIELD
  26.